<%
'dim conn
'dim connstr
'dim db
'db = "mdb/data.mdb" '数据库文件位置
'on error resume next
'connstr = "DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'set conn = server.createobject("ADODB.CONNECTION")
'if err then
'    err.clear
'else
'    conn.open connstr
'end if

'sub CloseConn()
'	conn.close
'	set conn=nothing
'end sub

Dim Conn
Set Conn = Easp.db.OpenConn("access", "mdb/data.mdb", "")
Easp.db.Conn = Conn
%>
